load("~/Desktop/Aq AMR Spatial Env_052221.RData")
library(Metrics)
library(dplyr)
#lapply
myALLXYTable_cult_all =  ALLXYTable %>% filter(SpeciesOrig == "Cultured") %>% filter(NIsolates > 0)
vars = names(myALLXYTable_cult_all)[19:21] #"mean" "P50" "P30"
fits = lapply(vars, function(x) {glm(substitute(i ~ MidDate, list(i = as.name(x))), data = myALLXYTable_cult_all, family=quasibinomial, weights = log10(myALLXYTable_cult_all$NIsolates))})
library(glmnet)
library(gamsel)
library(gbm)
library(gstat)
library(raster)
library(sp)
library(dismo)
library(rgdal)
library(rgeos)
library(pROC)
library(sf)
library(osmdata)
library(geosphere)
library(spatialEco)
library(glmnet)
library(gamsel)
library(gstat)
library(raster)
library(sp)
library(dismo)
library(rgdal)
library(rgeos)
library(pROC)
library(sf)
library(osmdata)
library(geosphere)
library(spatialEco)
